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= 1-012" 


MODULE OTSSSCLOSE five ( 
{DEN LOSEF .B32 


US wr 


BEGIN 
; 
leeeeeeeeeeeeReReeeeReeeKeReeeeeeeeeeeeteeeeeeeeeeeenereetaneeeeneneeeeneeee 


:* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
:* DIGITAL ty CORPORATION, MAYNARD, MASSACHUSETTS. 
t® ALL RIGHTS RESERVED 


® 
® 
® 
® 
® 
5 ® 
{THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED + 
is ONLY IN| ACCORDANCE WITH THE TERMS OF SUCH. LICENSE AND WITH THE 
ie INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER © 
is COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
*® 
® 
® 
a 
& 
a 
® 
& 
® 
® 
® 
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>) > a ts ts 


is THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
? pn ey Tbe. NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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! FACILITY: Language Intependent Library - Close File 


SssooooeoooooeoSSSSSSSS 


i ABSTRACT: 


RINIPIPNINININ 2 2 SS 
FUN —$OODNAUNEWN (OODNAU EWN OODNOUS WN 


This module issues an RMS close to a file on a LUN. 
i ENVIRONMENT: User access level; re-entrant, AST level or not. 


Sssss 


WWW 


SO OONAVE WN $$ O ODNOU SW SO OONOUS WN Oo 


i AUTHOR: John Sauter, CREATION DATE: 23-JAN-1979 
i MODIFIED BY: 
1-00) - - Original from FORCLOSE. JBS 23-JAN-1979 


' 
' 
' 
' 
' 
' 
' 
' 
J 
' 
‘ 
' 
i 
i 
‘4 Set LUBSV_DEALLO 429 0 that he LUN's virtual memory will be 
: released. JBS 197 

S$$PUR 

‘ 

' 

' 

‘ 

' 

J 

' 

‘ 

' 

' 

‘ 

' 


“SRS SecJANei 979 


put A, satite signs on nay f sncry 39th: JBS g- -JAN-1979 

nge purge h tUBsA, to nang to o OTSS$SPUR_1O CLO. pitt -MAR~-1979 

4 te thr f nonneere. 4-APR-1 

Implemen Uety SUaniT JBS (via SBL) 20- S ante 

Don't do a CLOS FABSW -{f i : t 2ere, and LUBSV_USEROPEN 

Ss $e R 11-25235 SBL~51-July-19 

Don‘*t call OTS$ 10 - Our caller must now purge 1/0 
ffers. JBS 20-A0G-T 

I a i! cstr connect, do a SDISCONNECT instead of a S$CLOSE. 

17 $SCLOSE, put STS and STV fields in the RAB for better 


OBu before closing to purge 1/0 buffers. 
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rayon WEogeent9Be 01:96:56 YMG SLtagesz vAsoe7eg, | Page (2 
7 | | 1012 = Bon®t RAS “Chosd thee tite i} Ibi is zero. Ignore USEROPEN. SBL 6-Dec-1979 
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#1984 01:24:5 AX-11 Bliss-32 v4.0-74 p 5 or 
opr 8ke 93:85:34 CTBRTL’ SRE IOTSCLOSEF B42: 1 29? 23 1-( 


OTSSECLOSE FILE 


SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 
' 


; LINKAGES: 


™ 
=o 


SHVSAF UNS SRUSAF 


3 73 
: ! } SWITCHES: 
; Be 
3 1 
3 1 
3 1 
; 70 4 
: > 4 
; 3 : REQUIRE "RTLIN:OTSLNK'; ! define all Linkages 
; 1! 
H i 1 ! TABLE OF CONTENTS: 
3 505 1! 
3 208 1 
: 0 3 1 FORWARD RUUTINE 
: 1 208 : OTSSSCLOSE_FILE : CALL_CCB; ! Internal file close 
3 HY 0310 1! 
; 4 511 1°! INCLUDE FILES: 
3 5 21g 1! 
5; & 513 1 
: 4 i? : REQUIRE "RTLML:OTSLUB'; ! Logical unit block definitions 
: 89 o8¢3 REQUIRE "RTLIN:OTSMAC'; ' macros 
; 3) 44 : REQUIRE ‘RTLIN:RTLPSECT'; ! Define DECLARE_PSECTS macro 
: a3ée : LIBRARY ‘RTLSTARLE'; ! STARLET Library for macros and symbols 
: 95 0948 1! 
3 38 949 1 ! MACROS: 
co 329 1! 
; 951 1! None 
:; 99 936 1! 
: 100 95 1 ! EQUATED SYMBOLS: 
3; 101 954 1! 
3 106 955 1! None 
s 10 He 1! 
; ise Hy } PSECT DECLARATIONS: 
; 128 Bs ! DECLARE _PSECTS (OTS); ! declare PSECTs for OTS$ facility 
: 198 961 1 | OWN STORAGE: 
3; 109 4 1! 
: 116 965 1! None 
: ao 964 1! 
3 \\g 965 1 ! EXTERNAL REFERENCES: 
: 11 366 1! 
3; (61146 1! NONE 
3 115 968 1! 
; «116 969 1 
| 
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18-Sep-1964 93:93? AX-11 et Pe V4.0-7 Page 4 


0-74 
-Sep-1 LIBRTL.SRCJO closer 882;1 (3) 
GLOBAL ROUTINE OTSSSCLOSE_FILE ! Internal file closer 
: CALL_CCB = 


'e¢ 


i FUNCTIONAL DESCRIPTION: 


Do an RMS CLOSE or DISCONNECT of a LUN. This includes handling 
any of the disposition flags in the LUB, whether set by OPEN or CLOSE. 


FORMAL PARAMETERS: 

NONE 
IMPLICIT INPUTS: 

Various fields from the LUB, pointed to by CCB. 
IMPLICIT OUTPUTS 

Various fields in the LUB and RAB. 


ROUTINE VALUE: 
COMPLETION CODES: 


The same as RMS CLOSE. The caller gener 
low-order bit of the completion code: if 
if 0 it failed. 

SIDE EFFECTS: 


CLOSEs the LUN, and marks it for deallocation. 


ally only tests the 
1 the close succeeded, 


BEGIN 


EXTERNAL REGISTER 
CCB : REF BLOCK C, BYTE); 


LOCAL 
NAM_BLOCK : BLOCK CNAMSC_BLN, BYTE), 
FAB_BLOCK : BLOCK CFABSC BLN, BYTE), 


' Local name block for delete 
AL FAB 
AB™: REF BLOCK CFABSC_BCN, BYTE) 


' 
! allocate LOC : 
declare FAB base pointer 


CLOSE_RESULT; ! RMS result of SCLOSE 

+ 
! Initialize FAB 
: Copy FAB address into the LUB for proper error status reporting. 
"FAB = FAB_BLOCK;: 

CASE LL (0, FABSC_BLN, .FAB); 

FAB (FABSB.B1D) ="FABSC_BID; 

FAB CFABSB_BLN) = FABSC_BLN; 
Me CCB CLUBSA_FAB) = .FAB; 
i Copy the directory JD into the NAM block and Link into FAB. 
! Set pointer to resultant name string (in case this is print 


9 
ragyomr HESEEANE USSG MSA SMENGH LAR] | 


so spooler will use in banner). 


CHSFILL (0, NAMSC_BLN, NAM a 


NAM_BLOCK FNAMSB BID) = = NAR 
NANEB BLOCK 


st. 
‘i. ess a ach at 1, NAM_BLOCK CNAM$W_DIDJ); 


If .CCB CLUBSV_DELETE] THEN FAB CFABS$V_DLT) = 
+ 


If V_PRINT is on in the LUB, set the SPL bit in the FAB. 


IF .CCB CLUBSV_PRINT] THEN FAB CFABS$V_SPLJ = 1; 

te 

- If V_SUBMIT is on in the LUB, set the SCF bit in the FAB. 
If .CCB CLUBSV_SUBMIT] THEN FAB CFABSV_SCF] = 


'¢ 
- Copy remembered RMS internal file id from LUB to FAB. 


SSSSSSSSSSSSSSSS SSOP PSS P ROSS OOOO ORES 


05 

38 FAB CFABSW_IFI) = .CCB CLUBSW_IFI); 

+4 Do the close cleanup, if any is provided. 
10 

te IF (.CCB CLUBSA_CLOSE] NEQA 0) THEN CALL_CCB (.CCB CLUBS$A_CLOSE)); 
1 + 

\3 os do the RMS close if IFI is not zero. 
16 

17 IF .FAB CFABSW_IFI] NEQ 0 

18 THEN 

1 BEGIN 


If the file is just a stream from another file, do a SDISCONNECT. 
! Otherwise, do a $CLO Ose and put the error codes into the RAB so that 
our caller has a better idea of what the error was. 


IF (.CCB CLUBSV_M_STREAM)) 
CLOSE_RESULT = $DISCONNECT (RAB = .CCB) 


ce ee ee ce ee ce a ee ee ee ee ee ee ee me ee eee ce ce ee me ee ce ee ee ee ee ee ee ee ce ee ee ce ee ee ee ee et ee ee ee ee ee ed 


AWN 9 ODNAUNE WIN 9 OD NA UNE WIN OOD NAME WW 0 OD VOU EW OCONOUSWWN—O0OO~ 


CK); 
BID; 
BLN: 
_b16 
ah 
FAB atin NA 
NAM_BLOCK path = .CCB [LUBSA_RSN); 
NAM~BLOCK NAMSB RSL] = .CCB CLUBSB-RSLI; 
‘if V.DELETE is on in the LUG, set the DLT bit in the FAB. 
i 
3 
4 
3 
4 
4 


OOOO NNN NNO OO 


Wnonononononemunofuny» 
—OOSwWO US Ww Oo 


BEGIN | 
CLOSE_RESULT = SCLOSE (FAB = .FAB); | 


9 
“a 1er$ep-1986 12:89:40 ECTert esnesorScuoser 682;1 


3 ¢ 1084 4 IF NOT .CLOSE_RESULT 

: 1085 4 THEN 

; 1 § BEGIN 

; 5 1 ccB past .315) = + FLOSE RESULT; 

; $ 1088 CCB CRABSL-STV] = .FAB CFABSL_Sfv); 

3 1089 4 END; 

; 8 1090 4 END 

: 9 1091 4 

; 240 1036 END 

: 241 109 ELSE 

; 24 1094 CLOSE_RESULT = 1; 

: 24 1095 

3 246 1 a8 i+ 

: a2 944 Indicate that the FAB error status is not meaningful anymore. 

3 of 1993 CCB CLUBSA_FAB) = 0; 

3; 249 1101 ! Indicate that the LUN has been closed, so further 1/0 to it will 
; 250 1108 ' fail. 

3 2s) 110 f= 

: 26 1188 as CCB CLUBSV_OPENED) = 0; 

: See 1106 ! Flag OTSSSPOP_CCB that it is to deallocate the virtual storage 

s 255 1107 ! occupied by this LUN. This bit also erevencs OPEN from open "9 
; 256 1108 ! this LUN. OPEN will only see it if OTS$$POP_CCB does not deallocate 
3s aor 1109 ' the LUB, which will happen only if there is recursive 1/0 active on 
: 258 1110 ! the LUN. When all of the recursive 1/0 has failed then the LUN 
3; 259 1111 ' can be opened again. 

; 260 sig be 

3 2 1137 . CCB CLUBSV_DEALLOC) = 1; 

: 368 111? Return the RMS status resulting from the CLOSE. 

; 265 1117 RETURN (.CLOSE_RESULT); 

; 266 1118 #1 END; 


-TITLE OTSSSCLOSE_FILE 
IDENT \1-072\ 


-EXTRN SYSSDISCONNECT, SYSS$CLOSE 
-PSECT _OTSSCODE,NOWRT, SHR, PIC,2 


007¢ 00000 .ENTRY OTSS$SCLOSE_FILE, Save R2.R3.R4,R5,R6 
SE FFSO CE 9E 900¢ MOVAB -176(SP), SP 
56 6E 9E 0000 MOVAB FAB_BLOCK, FAB 
bE 00 2¢ O00, MOVCS #0,7~(SP), #0, #80, (FAB) 
66 5003 a BO B12 MOVW #20483, (FAB) 
8 AB 0 001 MOVL. FAB, e4 (CCB) 
6E : 00 C 00 18 MOVCS #0, (SP), #0, #96, NAM_BLOCK 
50 AE 6005 F 0 09 4 ovw #24578 NAM_BLOCK 
FO Os AB 6 A MOVC3 #6, -1A6(CCBY, NAM BLOCK+42 
; Ab 50 AE f 00 0 NOVAB BLOCK, 46(FABY 
Ab 01 88 000 BISB2 #1,77(FABS 


+444 "MM Zs wor ee << D-MOSCo 
(MAtTAtAN SD BS Tw Fo Dee DO 


C 
C 
Dd 
Dd 
E 
E 
E 
E 
F 
F 
F 
F 
1 
L 
L 
0 
0 
0 
0 
0 


<2YNNNNNYY 
r BNOVTODANM 


rm 


ra) 
o 
~ 
ro) 


Dee eee Oe Oe Oe Bee Be Se es 
see — 2 — 
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54 AE Fg AB p 39 movL “B(CCB), NAM_BLOCK+4 :1 35 
CO a 0 a 118i 
§ Ab 80 8F 8 4 B1SB2 4158 5 (FABS : 
FC AB 4D 1$: TS7B. 0s =4 (CEB) + 1047 
4 BGEQ 2 : 
05 Ab Q 8 BISB2 #32, S(FAB) : 
05 FF i 2$: BBC #5. -1(CCB), 3$ : 1053 
05 Ab 40 BF BISB2 #64, 5(FAB) : 
2 Ab D0 «AB B 60 3$: MOVW “48 (cCB), 2(F AB) : 1058 
AG AB OD 6 TSTL =92(CCB) + 1063 
a 68 BEQL  4$ : 
AG) OBB 0 F A CALLS #0, @-92(CCB) : 
02 Ag 8 6F 4$: TSTW  2¢FAB) + 1069 
13 000 BEQL «$$ ; 
0B FF AB 2 €1 0007 BBC #2, -1(CCB), 5$ + 1078 
B DD 007 PUSHL (CCB + 1080 
000000006 00 01 FB OOO7A CALLS #1, SYSS$DISCONNECT ; 
1A 11 00081 BRa 7$ : 
56 DD 00083 5$ PUSHL FAB + 1083 
000000006 00 g1 FB 9085 CALLS #1, SYSSCLOSE : 
E 0 £8 0008C BLBS § CLOSE_RESULT, + 1084 
08 AB 50 DO 0008F MOVL CLOSE RESULT 8(CCB) : 1087 
0c AB 0c Ag D0 00093 MOVL  12(FAB), 12¢€C + 1088 
0 11 00098 BRB 7$ : 1071 
50 1 00 0009A $$: MOVL #1, CLOSE_RESULT + 1094 
E8 AB b4 0009D 7$: CLRL. © = 24 (CCB) + 1099 
FC OB 01 8A OOOA0 BICB2 #1, -4(CCB) + 1104 
FF AB 10 88 OO0A4 BISB2 #16, -1(CCB) + 1113 
04 000A8 RET : 1118 
; Routine Size: 169 bytes, Routine Base: _OTSSCODE + C000 
; 267 1119 1 
; 268 1120 1 END ! END of OTS$S$CLOSE_FILE module 
> 269 1121 1 
: 270 1122 0 ELUDOM 
| 
: PSECT SUMMARY 
3 Name Bytes Attributes | 
: _OTSSCODE 169 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC.ALIGN(2) | 
| 
| 
; Library Statistics 
i Mees (> ee es ee ee Symbols -------- Pages Processing | 
3 File Total Loaded Percent Mapped Time 


QTSSSCLOSE FILE 


Ikeectsts B88 HMNLSuENGHEttD hess 


~8255$DUA28 : CSYSLIBJSTARLET.L32;1 9776 26 0 581 00:00.8 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/NOTRACE/LIS=L1S$:OTSCLOSEF /0BJ=0BJ$ : OTSCLOSEF MSRC$:OTSCLOSEF /UPDATE=(ENHS$: OTSCLOSEF 


Sise: see e + 0 data bytes 
un Time :06.7 

rthey Time: :27.6 

Lines/CPU Min: 


eet Ak Made 0 
gener Used: 134 pages 
Compilation Complete 
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